home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / bytebnch.arc / MAKE4000.BAS < prev    next >
BASIC Source File  |  1984-07-10  |  512b  |  19 lines
  1. 10 PRINT "This program is producing a 4000-word ASCII text file"
  2. 15 PRINT "   named WPBENCH.DOC. This file is to be used for"
  3. 17 PRINT "       benchmarking word processor programs"
  4. 19 PRINT
  5. 20 OPEN "b:wpbench.doc" FOR OUTPUT AS #1
  6. 30 A$=" One two three four five six seven eight nine ten."
  7. 40 FOR I=1 TO 40
  8. 60 PRINT #1, USING "##"; I;
  9. 70 PRINT#1, ".";
  10. 80 FOR J=1 TO 10
  11. 100 PRINT #1, A$;
  12. 120 NEXT J
  13. 140 PRINT#1, : PRINT#1,
  14. 160 NEXT I
  15. 180 PRINT#1, "end"
  16. 200 CLOSE
  17. 220 SYSTEM
  18.  FOR J=1 TO 10
  19. 100 P